Echarts4r is used for interactive plots
library(palmerpenguins)
library(RColorBrewer)
penguins <- palmerpenguins::penguins
my_colors <- brewer.pal(3, "Dark2")
penguins |>
group_by(species) |>
e_charts(bill_length_mm) |>
e_scatter(flipper_length_mm, symbol_size = 7) |>
e_title('Comparing Three different Penguins Species',
subtext = 'Flipper Length (mm) vs Bill Length (mm)') |>
e_legend(
orient = 'vertical',
right = '5%',
top = '40%') |>
e_y_axis(min = 160, max = 250) |>
e_x_axis(min = 30) |>
e_color(my_colors) |>
e_grid(right = '15%') |>
e_tooltip(trigger = "axis") |>
e_toolbox_feature('saveAsImage') |>
e_toolbox_feature('dataView')library(palmerpenguins)
library(RColorBrewer)
penguins <- palmerpenguins::penguins
my_colors <- brewer.pal(3, "Dark2")
penguins |>
group_by(species) |>
e_charts(bill_length_mm) |>
e_scatter(flipper_length_mm, symbol_size = 7) |>
e_title('Comparing Three different Penguins Species',
subtext = 'Flipper Length (mm) vs Bill Length (mm)') |>
e_legend(
orient = 'vertical',
right = '5%',
top = '40%') |>
e_y_axis(min = 160, max = 250) |>
e_x_axis(min = 30) |>
e_color(my_colors) |>
e_grid(right = '15%') |>
e_tooltip(trigger = "axis") |>
e_toolbox_feature('saveAsImage') |>
e_toolbox_feature('dataView')library(palmerpenguins)
library(RColorBrewer)
penguins <- palmerpenguins::penguins
my_colors <- brewer.pal(3, "Dark2")
penguins |>
group_by(species) |>
e_charts(bill_length_mm) |>
e_scatter(flipper_length_mm, symbol_size = 7) |>
e_title('Comparing Three different Penguins Species',
subtext = 'Flipper Length (mm) vs Bill Length (mm)') |>
e_legend(
orient = 'vertical',
right = '5%',
top = '40%') |>
e_y_axis(min = 160, max = 250) |>
e_x_axis(min = 30) |>
e_color(my_colors) |>
e_grid(right = '15%') |>
e_tooltip(trigger = "axis") |>
e_toolbox_feature('saveAsImage') |>
e_toolbox_feature('dataView')library(palmerpenguins)
library(RColorBrewer)
penguins <- palmerpenguins::penguins
my_colors <- brewer.pal(3, "Dark2")
penguins |>
group_by(species) |>
e_charts(bill_length_mm) |>
e_scatter(flipper_length_mm, symbol_size = 7) |>
e_title('Comparing Three different Penguins Species',
subtext = 'Flipper Length (mm) vs Bill Length (mm)') |>
e_legend(
orient = 'vertical',
right = '5%',
top = '40%') |>
e_y_axis(min = 160, max = 250) |>
e_x_axis(min = 30) |>
e_color(my_colors) |>
e_grid(right = '15%') |>
e_tooltip(trigger = "axis") |>
e_toolbox_feature('saveAsImage') |>
e_toolbox_feature('dataView')